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1.0 


SUMMARY 


The electronic controller described in this report is a 
modification of the controller which was designed under NASA Contract 
NAS1-14459 and fully documented in Reference 1. 

As in the original design, the controller continuously 
compares the kinetic energy of the aircraft with the work potential of 
the gear until the work potential exceeds the kinetic energy. The 
wing/gear interface force present at this condition becomes the 
command force to a servo loop which maintains the wing/gear interface 
force at this level by providing a signal to an electrohydraulic 
servovalve to port flow into or out of the landing gear. 

Analytical results indicate that the controller provides 
significant reductions in forces sustained by the aircraft during 
vertical drops and radical reductions in forces during rollout over 
repaired bomb craters. 


2.0 INTRODUCTION 


Hydraulic Research Textron (HRT) was retained under NASA 
Contract NAS1-16420 to design a controller for an active control 
landing gear (ACLG) to be used on the F-4 aircraft. The design was a 
modification of the controller originally designed for a 2948 kg. 
(6,500 lb) aircraft and described in detail in Reference 1. 

The design was to be based on a digital computer simulation 
using a linear model of the aircraft and landing gear. However, it 
became apparent early in the program that the linear model was not 
adequate by itself to predict performance under certain phases of 
landing where nonlinear relationships prevail. Therefore extensive 
use was made of the HRT nonlinear model as well as the linear model to 
achieve the final design. The parameters of the aircraf t/landing gear 
system were supplied by NASA. 

The problem was similar to that encountered in the original 
design. However, the aircraft is heavier and the stroke of the strut 
is greater so that new scaling requirements are imposed. These are 
discussed in Appendix A. 
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3.0 


DYNAMIC ANALYSIS OF F-4 ACTIVE CONTROL LANDING GEAR 


3 . 1 PREFACE 

This section presents the dynamic analyses that were 
performed for the development of an electrohydraulic active control 
system for the F-4 landing gear. The main objective of these analyses 
was to develop a loop compensation network for the active control 
landing gear concept applied to the F-4 aircraft and to evaluate the 
performance of the active control gear with respect to the passive 
(conventional) F-4 landing gear. Section 3.2 contains a list of 
symbols and section 3.3 describes the analytical tools used in these 
studies, which are the linear and nonlinear vertical drop dynamic 
simulation models of the landing gear, without aircraft equations of 
motion included. Section 3.4 presents the correlation between the 
linear and nonlinear simulations. Section 3.5 presents the 
development of the loop compensation network. Section 3.6 presents 
analytical results for specific landing impact cases and cases of 
rollout over "repaired bomb craters", using the nonlinear vertical 
drop model, for both the passive gear and the active control gear. 


3 . 2 SYMBOLS 

A q area of orifice in shock strut orifice plate, see Figure 3-1. 

Ap landing gear metering pin area, see Figure 3-2. 

A-^ shock strut hydraulic area (piston area), 0.01024 m 2 

(15.87 in 2 ) 

O 

A 2 shock strut pneumatic area (cylinder area), 0.01494 m 

(23.16 in 2 ) 

Ag annular area in shock strut between piston and cylinder 

walls, 0.00761 m 2 (1.179 in 2 ) 

ATIRE constant in tire deflection force equation, 1.20 

C d discharge coefficient for active control servovalve orifice, 

0.62 

C do discharge coefficient for shock strut orifice, 0.60 
C Q orifice coefficient for shock strut orifice 

= C. A / 2g T , m 4 sec -1 , N 1 ^ (in 3 /sec/psiu^) 
do o' c P 
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CP Linearized orifice coefficient for active control servovalve 

= - V 3.16 x 10 »N ^ *sec ^(0. 01334 in 3 /sec/psi) 

CP Q linearized orifice coefficient for shock strut orifice 

= = C 0 /(2/~P^P^) , 1.901 x 10 -9 m 5 «N -1 •sec -1 (0.8 in 3 /sec/psi) 

CQ linearized orifice coefficient for active control servovalve: 

= Hi? = C sv /( P S +P R )/2 ’ 8 . 61m 9 /sec (13 , 340 in 3 /sec/in) 

C gv orifice coefficient for active control servovalve: 

= C d W gv / 2g c /p, 0.00268m 3 * sec _1 *N“ 1 / 2 (344.4 in 3 /(in lbf^ )) 

f coulomb friction between shock strut piston and cylinder, 222. N 

(50 . lbf ) 

F a vertical force exerted on shock strut by the runway surface, N 

(lbf) 

impact phase limit force, N (lbf) 

F^ im limit force, N (lbf) 

Fc. shock strut force, N (lbf) 

o 

F wing-gear interface force, N (lbf) 

w& 

p p 

g acceleration due to gravity, 9.81m/sec (386. in/sec ) 

g c gravitational acceleration constant 

—1 —2 —1 —2 
1 kg*m»N *sec (12 slug*in*lbf *sec ) 

i^ input signal to electronic compensation networks, A 

i 2 output signal from electronic compensation networks, or input 

signal to active control servovalve, (±0.040 A maximum) 

K_ amplifier gain in active control loop, 0.000020 A/V 

ct 
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Kf position feedback gain in strut position control loop, 563 V/m 

( 14 . 29V/in) 

KpoGE fraction of total strut stroke assumed available when computing 
impact phase force, 1.0 

K sv position gain of servovalve in active control loop, 0.0635 m/A 
(2.50 in/A) 

KTIRE constant in tire deflection force equation 1727.1 kN/m 
(9862 lbf/in) 

K x gain in strut position control loop, 1.0 m/m (1.0 in/in) 

L total lift force, N (lbf) 

M mass of airplane per gear, 8345 kg (18398 lbm) 

M c mass of upper portion of landing gear (cylinder plus orifice 

plate attachment, kg (slugs) 

M l mass of lower portion of landing gear (piston plus tire), 204. 

kg (13.99 slugs = 1.166 lbf . sec 2 /in = 450. lbm) 

Mtt upper mass, 8143. kg (558. slugs = 46.5 lbf. sec 2 /in = 17948. 

lbm) 

PE + potential energy stored in tire due to compression, N . m (ft . 
lbf) 

7 2 

Pg hydraulic supply pressure, 2.07 x 10' N/m (3000 . psi) 

o 

Ppj hydraulic return pressure, 0.0 N/m (0.0 psi) 

O 

P^ hydraulic pressure in shock strut piston, N/m (psi) 

o 

Pg pneumatic pressure in shock strut cylinder, N/m (p si) 

Pg pressure in volume betweeen walls of shock strut piston and 

cylinder, N/m 2 (psi) 

Q q flow rate through shock strut orifice from piston to 

cylinder, nr/sec (in^/sec) 
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Q sv flow rate from active control servovalve to shock 

strut piston, linear model, m 3 /sec (in 3 /sec) 

Q sv i flow rate through active control servovalve from 

supply pressure to the shock strut piston, m 3 /sec (in 3 /sec) 

Q SV 2 flowrate through active control servovalve from shock 

O O 

strut piston to return pressure, m /sec (in°/sec) 

R s the slope of the limit force with respect to time during 

transition phase, 444800. N/sec (100000. lbf/sec) 

s LaPlace operator, sec -1 

t time, sec 

V velocity, m/sec (in/sec) 

V g sink rate, m/sec (in/sec) 

V-l hydraulic volume in shock strut piston and lines up to 

the active control servovalve, 0.00497 ra 3 (303. in 3 ) 

V 2 pneumatic volume, 0.00742 m 3 (453. in 3 ) for fully extended 

strut 

V 3 volume between shock strut piston and cylinder, 0.0 m 3 

(0.0 in 3 ) for fully extended strut 

W sv window width of orifices on third stage spool of active control 
servovalve, 0.0884 m (3.48 in) 

X a displacement of lower mass of shock strut or axle, m (in) 

X c commanded position of shock strut, 0.216 m (8.50 in) 

Xg ground level displacement, m (in) 

X g shock strut stroke, m(in) X g = 0 fully extended, X g = 0.403 m 

(15.88 in) fully compressed 

x-,- displacement of wing gear interface, m (in) 

p bulk modulus of hydraulic fluid, 6.89 x 10 8 N/m 2 (1 x 10 5 psi) 

v ratio of specific heat of gas at constant pressure to that at 

constant volume, 1.06 
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p 


mass density of hydraulic fluid, 838 kg/m^ (0.000941 
slugs/in^ = 0.0303 lbm/in^) 
time constant in strut position feedback loop, 0.10 sec 
time constant in compensation, 0.001621 sec 
Tg time constant in compensation, 0.0001621 sec 

i time constant in compensation, 6.464 x 10“ 4 sec 

O 

—5 

time constant in compensation, 6.464 x 10 sec 
corner frequency in active control servovalve transfer 
function, 1263 sec"'*' 

<«> natural frequency in active control servovalve 

transfer function, 655.5 sec"-* 

natural frequency of notch network, 565 sec"*' 

C damping coefficient in active control servovalve transfer 

sv function, 0.436 

damping coefficient in denominator of notch network, 5.1 
damping coefficient in numerator of notch network, 0.1 

Subscripts : 

i initial conditions before impact 

im impact phase 

L lower mass 

max maximum value 

min minimum value 

r rollout phase 

s shock strut relative motion of lower mass (piston) with respect 

to the upper mass (cylinder) 

sv servovalve 

tr transition phase 


U 

6 


upper mass 



Miscellaneous : 


d( ) indicates the differential of a variable 

A ( ) indicates difference or change in a variable 

(. ), (..)> (...) dots indicate differentiation with respect to time 
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3.3 


DYNAMIC SIMULATION MATH MODELS 


The main analytical tools used in these studies are the linear 
(s-domain) and nonlinear (time domain) vertical drop dynamic 
simulation models of the landing gear. These models simulate motion 
in the vertical axis only. Aircraft equations of motion are not 
included, and aircraft mass (per gear) is simulated as a lumped mass 
resting on top of the landing gear. 

3.3.1 Linear Model 


The linear model simulated the dynamics of the active control 
landing gear system in the frequency domain for small perturbations 
about the condition where the airplane mass (per gear) is resting on 
top of the gear with the gear always in contact with the ground and 
with the lower cylinder hydraulic pressure at a value halfway between 
the hydraulic supply and return pressures. The input disturbance 
variable is command limit force. Airplane lift and ground level are 
assumed constant. The linear model is a valuable tool since it allows 
rapid evaluation of system modifications or the effect of variation in 
system parameters in the areas of system stability and frequency 
response. A detailed description of the linear model, including 
equations, is presented in Reference 1, and will not be repeated 
here. The values of the constants used in the simulations for this 
study are given in Section 3.2 of this report. 

3.3.2. Nonlinear Model 


The nonlinear model is developed from the time-dependent 
algebraic and differential equations of the system. The response of 
the system to input disturbances is obtained by integrating the 
differential equations with respect to time. Controller laws 
(including switching logic) and all other identifiable nonlinear 
attributes of the system of significance are simulated. Thus, the 
nonlinear model represents a more accurate simulation of the actual 
physical case than the linear model. This however, comes at the 
expense of considerably longer computational times. The nonlinear 
model accepts input variations in airplane lift, ground level, and 
command limit force (for vertical drop impact transients, however, the 
controller automatically sets the command limit force subsequent to 
initiation of active control). A detailed description of the 
nonlinear model, including equations, is presented in Reference 1. 

The nonlinear model used herein is identical to that described in 
Reference 1 except the values of the system constants are different 
and the linear spring tire force assumption was modified to a 
nonlinear spring, according to the relationship: 
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p = , KTIRE (XA -XG) ATIRE for XA > XG 
a 1 0 for XA < XG 

where KTIRE and ATIRE are constants. This equation replaces the 
expression for F a in Equation 4 of Reference 1. 

The values of the constants used in the linear and nonlinear 
simulations for this study are given in Section 3.2. 

The important variables are shown in Figure 3-1. 

3.4 CORRELATION OF LINEAR AND NONLINEAR MODELS 

Since both the linear and nonlinear models were utilized in the 
development of the loop compensation, the first task was to correlate 
the linear model with the more precise nonlinear model to ensure that 
it would give at least reasonably credible results. Figures 3-3, 3-4, 
and 3-5 show frequency response results obtained from the linear and 
nonlinear models, without compensation. The loop is opened at the 
point of wing/gear force feedback, and the strut position feedback 
loop is not included. The input is command limit force and the output 
is the wing/gear force response. The nonlinear runs were made with 
zero lift and for command amplitudes of ±890 N (±200 pounds), and the 
amplitude and phase angle at each frequency were computed from a 
Fourier analysis of the resultant input and output waveforms. The 
linear model results were obtained using a linearized orifice 
coefficient for the shock strut orifice (CP Q ) of 0.8 in 3 /sec/psi. 

This value seemed to give the best overall correlation between the 
linear and nonlinear models. Note that the agreement is reasonably 
good out to a frequency of about 150 Hertz. At higher frequencies, 
the nonlinear model shows considerably more phase lead and less 
amplitude response than the linear model. Figures 3-6 and 3-7 show 
open loop Nyquist diagrams for these same results, for the linear and 
nonlinear models, respectively. Again, reasonably good correlation is 
indicated . 
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3.5 


LOOP COMPENSATION 


The open-loop Nyquist diagrams of the uncompensated system 
presented in the previous section (Figures 3-6 and 3-7) indicate that 
the system is unstable around 100 Hertz. Thus, compensation is deemed 
necessary. The compensation that was developed for this system is 
implemented in the forward path of the control loop, and has the 
following transfer function. 


T(S) 


's 2 

+ 2(.100) o+1 

565. 2 

565. 

s 2 

2(5.10) 

565. 2 

T O' JL 

565 


— — 



s__ +1 


s +1 

617. 1 


1547. 1 

S +1 


s +1 

6170. ± 


15470. x 

_ 


_ — 


(3-1) 


It consists of a notch filter at 90 Hertz and two first-order 
20 dB lead/lag networks. The frequency response of the compensation 
is shown in Figures 3-8 and 3-9 and the Nyquist plot including 
compensation is shown in Figure 3-10. 

To understand the effect of each part of the compensation 
network on system dynamics, open-loop Nyquist diagrams obtained from 
the linear model are presented with successive portions of the 
compensation network incorporated. Figure 3-11 shows the 
uncompensated Nyquist diagram (this is the same as the results in 
Figure 3-6 except that the amplifier gain has been adjusted). 

Figure 3-12 shows the effect of including the compensation notch 
only. The system is now stable, but rather low damped at a frequency 
around 60 Hertz. The first lead/lag network was included to add phase 
lead in this frequency range. The Nyquist diagram with the notch and 
this lead/lag incorporated is shown in Figure 3-13. The second 
lead/ lag was included to add phase lead in the 190 Hertz range. The 
open-loop Nyquist diagram with the entire compensation network 
included is presented in Figure 3-14. 


The effect of each part of the compensation network on system 

dynamics was also evaluated using the nonlinear model on a typical 

vertical drop case. The conditions of the case are as follows: 

1. The sink rate prior to impact is 1.83 m/sec (72 ins/sec) 

2. The lift is equal to airplane weight at initial impact, 

then linearly reduced to 10 percent of the airplane 
weight over the next 1 second, then held constant at 10 
percent thereafter. 

3. The ground level is held constant. 
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The resultant force transients are shown in Figures 3-15, 3-16 
and 3-17 for the notch compensation only, the notch plus the first 
lead/ lag compensation only, and the entire compensation network, 
respectively. The results show that the notch stabilizes the system, 
and the lead/lag networks effectively reduce the oscillatory behavior 
of the system at the higher frequencies. It should be noted that the 
amplifier gain was set at 0.028 milliamperes per volt for each of 
these runs, which is higher than the final design value of 0.020. 

Note from Figures 3-15 through 3-17 that the system exhibits a 
low damped oscillatory behavior at about 15 Hertz. This behavior is 
also exhibited in the Nyquist diagrams already presented. The linear 
model Nyquist diagram results predict a somewhat lower frequency of 
oscillation than the nonlinear results, however, (compare Figures 3-6 
and 3-7) an attempt was made to increase the damping of these 
oscillations by adding some phase lead in that frequency range using 
another 20 dB lead/lag network. Although the resultant linear model 
Nyquist diagram looked promising, the nonlinear vertical drop results 
showed marginal improvement in the low-frequency oscillatory 
behavior. The resultant compensation also possessed significantly 
greater high-frequency amplification, an undesirable result. The 
approach was thus taken to employ the compensation network described 
previously (Equation 3-1), and improve the low frequency oscillations 
by reducing the loop gain as much as possible without significantly 
degrading the performance of the active control concept. It was found 
that the amplifier gain of 0.028 milliamperes/volt used in 
Figures 3-15 through 3-17 could be reduced to 0.020 mA/V without 
significantly affecting the ability of the active control gear to 
reduce the wing/gear forces, for all the cases run herein. 

The block diagram of the system is shown in Figure 3-18. 

3.6 VERTICAL DROP ANALYTICAL RESULTS 

The nonlinear model was used to simulate various vertical drop 
landings and rollouts over repaired bomb craters using active control 
on the F-4 landing gear. In all cases the passive gear was also 
simulated in order to evaluate the effectiveness of active control in 
reducing the loads transmitted through the wing/gear interface. The 
compensation developed in Section 3.5 (Equation 3-1) was employed in 
all active control cases, and the amplifier gain used was 0.020 mA/V. 


3.6.1 Vertical Drop, Case I 

The conditions for vertical drop case number 1 are as follows: 

1. The sink rate prior to impact is 1.83 m/sec (72 in/sec) 

2. The lift equals airplane weight (per gear) at all times 

3. The ground level remains constant. 
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Command limit force is set automatically by the controller. 
Figure 3-19 shows the resultant wing/gear force transients for the 
active and passive gears. Active control reduces the peak force 20 
percent below the passive gear case. Figure 3-20 compares the strut 
stroke between the two cases. The active gear uses significantly more 
stroke than the passive gear. Figures 3-21 and 3-22 show the vertical 
displacements of the ground level, landing gear axle, and wing/gear 
interface for the passive gear and the active gear, respectively. The 
displacements are positive in the up direction, and are all referenced 
to the condition where the gear is fully extended and barely in 
contact with the ground with zero tire compression. Thus, at the 
point of impact (at time = 0) all the variables are zero. When the 
axle displacement is below the ground level (which is constant), the 
tire is in compression; when it is above, the landing gear is off the 
ground. Also, when the wing gear interface displacement is the same 
as the axle displacement, the gear is fully extended. Thus, in 
Figure 3-21 for the passive gear, the landing gear becomes fully 
extended at 0.548 second and rebounds (i.e., leaves the ground) at 

0.560 second. Note from Figure 3-22 that the active control causes 
the gear to remain in contact with the ground longer and when it 
rebounds, it does so at a lower upward velocity. Figures 3-23 and 
3-24 show the lower and upper cylinder pressure transients for the 
passive and active gears, respectively. The pressures are 
significantly reduced in both cylinders as a result of active 
control. Finally, Figures 3-25 and 3-26 show the valve third stage 
spool displacement and the valve hydraulic flow rate to the gear 
respectively, for the active control case. 

3.6.2 Vertical Drop, Case 2 


The conditions for vertical drop case number 2 are as follows: 

1. The sink rate prior to impact is 1.83 m/sec (72 in/sec). 

2. The lift equals airplane weight (per gear) prior to and 
up to the point of impact, then lift is linearly reduced 
to 10 percent of airplane weight during the first second 
after impact, and lift is held constant at ten percent 
thereafter . 

3. The ground level remains constant. Figures 3-27 through 
3-34 show the transient response of the various 
variables of interest for the passive and active gear 
simulations. Active control in this case reduces the 
peak wing/gear force 22 percent below the passive gear 
case . 
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3.6.3 Rollout Over Repaired Bomb Crater 


Simulation of aircraft rollout over a repaired bomb crater 
(subsequent to an impact landing) was accomplished using the nonlinear 
vertical drop model. Initial conditions are calculated assuming the 
aircraft is in contact with the ground and the landing gear has 
reached an equilibrium condition in supporting the aircraft weight 
minus its lift. Assuming some horizontal speed for the aircraft, 
actual physical changes in ground level can be represented as 
transient changes which can be input into the nonlinear model. For 
this case a Class I repaired bomb crater was used. This was chosen 
because it was the worst-case profile out of all those supplied by 
NASA in support of this project. A diagram of the bomb crater is 
shown in Figure 3-35. The horizontal speed of the aircraft was 
assumed to be 51.8 m/sec (170 ft/sec). The command limit force is set 
to zero with a force deadband of ±8.9 kN (±2000 lbf) throughout the 
transient, consistent with the assumption that the disturbance occurs 
during rollout, subsequent to an impact landing. The lift is set to 
10 percent of the aircraft weight (per gear) throughout the transient. 
Figures 3-36 through 3-43 show the transient response of the various 
variables of interest for the passive and active gear simulations. 
Active control in this case reduces the peak wing/gear force 74 
percent below the passive gear case. Note also from Figures 3-38 and 
3-39 that the passive gear leaves the ground three separate times 
during the transient, while the active gear leaves the ground only 
once, very briefly. 
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5 . 0 SOFTWARE 

The digital software of the system described in Reference 1 was 
modified to be compatible with the F-4 landing gear. Changes were 
incorporated to reflect the new scaling which was necessitated by the 
new weight and strut stroke. The scaling is discussed in detail in 
Appendix A. 

In addition, program changes made by NASA were incorporated, 
including a force deadband which is effective in the takeoff mode as 
well as the landing mode. 

The software flow chart is shown in Figure 5-1 and the complete 
program is listed in Appendix B. 

6.0 CONCLUSION 

An analysis has been made on the active control landing gear 
concept applied to the F-4 aircraft. Servocontrol loops and signal 
shaping have been defined. The results of the analysis show that the 
active control landing gear can significantly reduce the loads 
transmitted to the aircraft for both landing impact cases and rollout 
over ground level perturbations. For the vertical drop landing impact 
cases analyzed, reductions in wing/gear interface force of 20 to 22 
percent were achieved from the conventional passive gear case. For the 
case of rollout over a repaired bomb crater, a reduction of 74 percent 
was achieved. 

7.0 RECOMMENDATIONS 

Based on the conclusion of this report it is recommended that 
the study be continued by investigating the following areas: 

1. The benefits of the ACLG vs. any penalties involved such 
as cost, weight, and the effect on aircraft structure 
and hydraulic systems. 

2. The possibility that under extremely uneven landing 
conditions the gear could be depleted of fluid and the 
effect of such depletion. 

3. Requirements for landing at higher sink rates, i.e., 

3.05 m/sec (10 ft/sec). 

4. The design of a flightworthy ACLG for the F-4 aircraft. 

5. The application of the results of this analysis to other 
aircraft systems. 
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APPENDIX A 


DIGITAL SCALING 


Since the stroke of the strut is 0.4034 m (15.88 in) it is 
anticipated that a (0.51m) potentiometer will be used to measure strut 
displacement . 

It is further anticipated that the wing/gear interface 
accelerometer will be the same as that used in the system described in 
Reference 1. 

Based on these assumptions the digital scaling is as follows: 


(1) W/G acceleration: 


The scale factor of the accelerometer is 2.85 v/g. The accelerometer 
signal is attenuated to 0.6316 of its value and then amplified by a 
factor of 6 in the analog circuitry to produce a scale factor of 10.8 
v/g. Since 10 v - 4095 bits the digital acceleration scale factor is: 

10.8 x 409.5 = 4423 bits/g. 

Since the aircraft weight is: 

8.184 x 10 4 N (18,398 lb) 

the scale factor in terms of force is: 

0.05404 bits/N (0.2404 bits/lb) 


(2) W/G Velocity: 


As stated above, the accelerometer scale factor is 2.85 v/g 

or — ‘^ v — or: 0.2907 v/m/sec 2 (0 .00738 v/in/sec 2 ) 

9 .807m/sec 


In the analog circuitry this signal is amplified by a factor of 
(0 .6316) (21 .47) = 13.56 

and integrated to produce w/g velocity. The velocity scale factor is 
then: 

(0.2907) (13.56) = 3.94 v/m/sec/ (0.1 v/in/sec). 
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Digitally the scale factor is: 

(3.94 v/m/sec) (409.5 bits/v) = 1614 bits/m/sec (40.95 
bits/in/sec) . 

(3) Sink rate 

The sink rate is scaled at 

3.94 v/m/sec (0.1 v/in/sec) 
or digitally at 

1614 bits/m/sec (40.95 bits/in/sec) 
to match the scaling of the w/g velocity signal. 

(4) Strut displacement: 

The strut potentiometer produces 
10 v for 0.508 m (20 in). 

Its scale factor is then 

19.96 v/m. (0.5 v/in). 

The potentiometer signal is multiplied by 0.715 in the analog 
circuitry to produce a scale factor of: 

19.96 (0.715) = 14.08 v/m (0.3575 v/in). 

Digitally the scale factor is 

(14.08 v/m (409. 5 bits ) = 5766 bits/m (146.4 bits/in). 

v 

The maximum strut displacement is equivalent to: 

(0.4034 m) (5766 bits/m) = 2325 bits 
which is 0915 HEXADECIMAL (H). 

(5) Work potential of the strut: 

4 • 

WP = Fwg (Xmax - Xs) = MXwg (Xmax - Xs) 

If Xwg = 1 g and X max - Xs = 0.0254 m (1 in) then 
MXwg= 8.184 x 10 4 N (18,398 lb.) 

WP is then (8.184 x 10 4 *0.0254 = 2079 N-m (18,398 lbf ins) 
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As pointed out in (1) and (4) above, 1 g is equivalent to: 

10.8 v and 0.0254 m (1 in) is equivalent to 0.3575 v. 
Digitally then, 

WP = (10.8 v ) (409 . 5 bits ) (0 .3575 v)(409.5 bits) = 6.4745 x 10 5 bits. 

v v 


The scale factor of WP is therefore: 


6.4745xl0 5 

2079 


3.114xl0 2 bits/N-m (35.19 bits/lbf.in) 


(6) Kinetic Energy: 

/ T 

KE = V 2 W / g (V tot) 2 where V tot = V touchdown + Xwgdt 
If Vtot = 0.0254 m/sec (1 in/sec) then 


KE = V 2 184x10 N ^ 7 ) (0.0254 m/sec) 2 = 2.692 Nm (23.83 lb in) 
(9.807 m/sec ) 

Digitally, from (2), 

Vtot = (0.0254 m/sec)(3.94 v/m/sec) (409 .5 bits/v) = 40.95 bits. 
Then KE = (40. 95) 2 = 1676.9 bits. 

Therefore the scale factor for KE is: 


~~ 2.6 ~ 92 ~~ ^ ^ m = 622 * 9 bits/N-m = (70.37 bits/lb in) 

which is twice the scale factor of WP, from (5) above. 

Therefore, to compare KE to WP it must be divided by 2. This is 
accomplished in the software by a right shift. 

(7) Decrease of li mit force command during transition: 

10 v. corresponds to: 

8.184 x 10 4 N (18,398 lbs f ) of F 1]; , 

so that the scale factor of is: 

8184 N/v (1840 lbs f /v.) 
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Digitally the scale factor is: 


4M T 5 ' blYi TV = 19 * 98 bit (4,49 lbf / bit ) = °* 05 bit/N (0.22 bit/lbf) 


During transition F 1I is decreased at a rate of 
4.44810 5 N/sec (10 5 lbf/sec) 
or digitally at a rate of 

2.226 x 10 4 bits/sec. 

(8) Transition velocity (Vt) : 


Vt = 


F 1I 2 

2(W/g)R 


W = 8.178 x 10 4 N (18,398 lb) and R = 4.445 x 10 5 (10 5 lb/sec) 
then : 

F 1I 2 -10 

Vt = = 1.348 x 10 F, 2 

2(9.178 x 10 /9.8)(4.445)10 £> 11 

Therefore : 

4.445 N (1 lb) produces: 

2.663 x 10 -9 m/sec (1.049 x 10 -7 in/sec) 

From (7) the digital scale factor of F-, T is 0.05 b4t 

N 

so that the digital signal produced is: 

(4.445 x 0 . 05 ) 2 = 0.0494 bits. 

The scale factor of Vt is therefore: 


0.0494 

2.663x10 


1.86 x 10 7 bits/m/sec (4.724 x 10^ bits/in/sec) 
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II 


From (2) and (3) the scale factor for Vtot is: 

1614 bits/m/sec (40.95 bits/in/sec) 

Therefore, in order to compare Vtot to Vt, Vt must be multiplied 

= = 0.00008669 

1.885 x 10 

in the arithmetic board which is accomplished as follows: 
0.0000869 DECIMAL (D)= 


0.0000000000000101101011100110101010101101110000001 Binary (B) 
which equals: 

1.01101011100110101010110 x 2" 14 (B) 

The exponent is -14(D) 


The bias in the arithmetic board is: 


07F HEXIDECIMAL (H) or 127 (D) 

Therefore the number must be applied with a bias of 
127 -14 = 113 (D). 

In addition, a factor must be applied due to the fact that the numbers 
from the A/D converter are stored in the most significant 12 bits of 
the 16 so that the number for Vtot is too high by a factor of 16. Vt 
is a function of FLI^ and is too high by a factor of (16) . The net 
result is that Vt is too high by a factor of 16. It must therefore be 
reduced by a factor of 16 or 2 . 

Therefore the exponent of the applied number is: 

113 - 4 = 109(D) = 6D (H) = 01101101 (B) 

A sign bit ("0" for positive) must precede the exponent. The format 
of the applied number is: 


Sign 


Exp. 


Fraction 

_A. 


.0011011Q101101011100110101010110. 

M 


M+3 


M+2 


M+l 
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Therefore, if this is stored in memory starting at address M, the 
contents of memory are: 


M 36(H) 
M+l B5(H) 
M+2 CD(H) 
M+3 56(H) 
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APPENDIX B 


MICROPROCESSOR PROGRAM 

The microprocessor program is listed in the following pages. 

It should be pointed out that for three-byte instructions, the listing 
of the last two bytes is in an order which is reversed from the order 
in which the bytes are stored in memory. This is a peculiarity of the 
assembler which was used. 
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ASSEMBLED AT 0000 


0000 * 
0001 ' 
0004 1 
0005' 
0007 f 
0009 1 
000B 1 
000D' 
000F' 
0011 ' 

0014' 
0017* 
001 A f 
001C 1 


001E 1 
0020 1 
0022 1 
0024 T 
0025' 
0028 T 
002B 1 
002D 1 
002E 1 
0031* 
0032 1 
0035' 
0037' 
0038’ 
003B * 
003C' 
003F’ 


MACRO— 80 3 . 34 04-NOV-79 


PAGE 


00001 

00002 

00003 

00004 

00005 

00006 
00007 


n ***************************************************** 
PROGRAM FOR AN ELECTROHYDRAULIC ACTIVE 
CONTROL AIRCRAFT LANDING GEAR 
****************************************************** 
NOTES : 

RAM LOCATION 3D0EH ADDED AS A TEMP LOC 
FOR FLIM 2/13/80 




00008 

******************************************* 



00009 

REVISED FOR 

F4 GEAR 6/28/81 



00010 

ORG 

00 


F3 


00011 START: DI 


; DISABLE INTERRUPTS 

21 

3FFF 

00012 

LX I 

H , 3FFFII 

; I N 1 T . STACK 

F9 


00013 

SPHL 



3E 

82 

00014 

MVI 

A , 82H 

; INIT. MATH BOARD 

D3 

EB 

00015 

OUT 

OEBH 


3E 

00 

00016 

MVI 

A, 00 

; SET MEM. BASE ADD. 

D3 

A1 

00017 

OUT 

0A1H 


3E 

80 

00018 

MVI 

A , 80H 


D3 

A2 

00019 

OUT 

0A2H 


21 

0092 

00020 

LXI 

H , 0092H 

; STRUT THRESH. =1 IN. 



00021 



; MULT THRESH BY 16 

CD 

0289' 

00022 

CALL 

ANM 

; FOR LATER USE 

22 

3F8A 

00023 

SHLD 

3F8AH 

; LABLE BXTHR 

3E 

4C 

00024 

MVI 

A , 4CH 

; SET LIGHTS, SWITCHES 

D3 

EA 

00025 

OUT 

OEAH 




00026 ; 

*********************** 

********************: 


00027 

00028 
00029 


16 03 

00030 

TL1 : 

MVI 

D,3 

06 FF 

00031 

TL2 : 

MVI 

B.OFFH 

OE 05 

00032 


MVI 

C , 5 

7A 

00033 

TL3 : 

MOV 

A , D 

CD 0251’ 

00034 


CALL 

INI 

22 F708 

00035 


SHLD 

0F708H 

DB E9 

00036 


IN 

0E9H 

IF 

00037 


RAR 


DA 0042’ 

00038 


JC 

LI 

05 

00039 


DCR 

B 

C2 0024 r 

00040 


JNZ 

TL3 

06 FF 

00041 


MVI 

B , OFFH 

OD 

00042 


DCR 

C 

C2 0024 T 

00043 


JNZ 

TL3 

15 

00044 


DCR 

D 

FA 001E ’ 

00045 


JM 

TL1 

C3 0020' 

00046 


JMP 

TL2 


OUTPUT MUX0-MUX4 FOR A/D BOARD CHECK 
ALSO LOOK FOR CONTROLLER ENABLED 
****************************************************** 


; OUTPUT TO DACO 
; CONTROLLER ENABLED? 


; YES, JUMP TO LI 
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00047 .****** ************************************************ 

00048 • CONTROLLER HAS BEEN ENABLED 

00049 .****** ************************************************ 


0042' 

3E 02 

00050 

LI: 

MV I 

A, 02 

0044’ 

CD 0251* 

00051 



CALL 

INI ; GET STRUT POS FOR LAND/TO. DEC. 

0047’ 

2A 3F8A 

00052 



LHLD 

3F8AII ;GET STRUT THRESHOLD 

004A* 

EB 

00053 



XCHG 

;PUT IN DE 

004B ’ 

2 A 3F86 

00054 



LHLD 

3FS6II ; LOAD HL WITH STRUT POSITION 

004E ' 

CD 0282 1 

00055 



CALL 

SUB2 ; CALC. THRESHOLD-STRUT 

0051' 

DA 01BD* 

00056 



JC 

L12A :YES, JUMP TO 12A 



00057 


***************************************************** 



00058 



LANDING - 

MAKE PREPARATIONS 



00059 


***************************************************** 

0054' 

3E 03 

00060 



MV I 

A, 03 

0056' 

CD 0251’ 

00061 



CALL 

INI ;GET SINK RATE 

0059' 

22 3F88 

00062 



SHLD 

3F881I ; STORE IT 

005C ' 

21 0915 

00063 



LXI 

H ,091511 ; MULT XMAX BY 16 TO SHIFT INTO 

005F 1 

CD 0289’ 

00064 



CALL 

ANM ; UPPER 12 BITS 

0062* 

22 3F8C 

00065 



SHLD 

3F8CH ; STORE IT 



00066 


***************************************************** 



00067 



ENABLE INTEGRATOR 



00068 



START ENERGY CALCULATIONS 



00069 


***************************************************** 

0005 1 

3E 9E 

00070 



MVI 

A , 9EH 

0067 * 

D3 EA 

00071 



OUT 

OEAH ; ENABLE INTEGRATOR 

0069’ 

CD 0220’ 

00072 

L8 : 

CALL 

IN3 

006C 1 

EB 

00073 



XCHG 


006D * 

2 A 3F8C 

00074 



LHLD 

3F8CH 

0070’ 

EB 

00075 



XCHG 


0071' 

7B 

00076 



MOV 

A , E 

0072* 

95 

00077 



SUB 

L 

0073’ 

6F 

00078 



MOV 

L, A 

0074' 

7A 

00079 



MOV 

A , D 

0075' 

9C 

00080 



SBB 

H 

0076' 

67 

00081 



MOV 

H , A 

0077' 

22 8004 

00082 



SHLD 

8004H 

007A’ 

AF 

00083 



XRA 

A 

00 7B* 

CD 028E 1 

00084 



CALL 

MATH 

007E * 

2A 8000 

00085 



LHLD 

8000H 

0081’ 

22 3F8E 

00086 



SHLD 

3F8EH 

0084* 

2A 8002 

00087 



LHLD 

8002II 

0087* 

22 3F90 

00088 



SHLD 

3F90H 

008A* 

2A 3F88 

00089 



LHLD 

3F88H 

008D* 

EB 

00090 



XCHG 


008E 1 

2A 3F84 

00091 



LHLD 

3F84H 

0091 1 

CD 0282' 

00092 



CALL 

SUB 2 
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0094 

22 

8000 

00093 



SHLD 

8000H 

0097 

22 

8004 

00094 



SHLD 

8004II 

009A 

AF 


00095 



XRA 

A 

009B 

CD 

028E 1 

00096 



CALL 

MATH 




00097 


************************************************** 




00098 



DIVIDE KE BY 2 THEN DO A BYTE BY BYTE COMPARE 




00099 



TO TEST 

IF PE ) KE „ DON'T BOTHER TO TEST LSB-IT 




00100 



CONTAINS 

NO USEFUL DATA 




00101 


**************************************************: 

009E 

B7 


00102 



ORA 

A ; CLEAR CARRY 

009F 

06 

03 

00103 



MVI 

B , 3 ; SET A BYTE COUNTER 

00A1 

21 

8003 

00104 



LXI 

H.8003H ; GET KINETIC ENERGY 

00A4 

7E 


00105 

L8A : 

MOV 

A,M ; SHIFT RIGHT 3 BYTES AND 

00A5 

IF 


00106 



RAR 

; RE-SAVE 

00A6 

77 


00107 



MOV 

M , A 

00A7 

2B 


00108 



DCX 

H 

00A8 

05 


00109 



DCR 

B 

00A9 

C2 

00 A4 1 

00110 



JNZ 

L8A 

00 AC' 

06 

03 

00111 



MVI 

B ,03 

00 AE 

21 

3F91 

00112 



LXI 

H , 3F91II 

00B1 

11 

8003 

00113 



LXI 

D, 8003H 

00B4 

1A 


00114 

L9 : 

LDAX 

D 

00B5 1 

BE 


00115 



CMP 

M 

00B6 1 

C2 

00C2 1 

00116 



JNZ 

L10 

00B9 1 

IB 


00117 



DCX 

D 

OOBA' 

2B 


00118 



DCX 

H 

OOBB* 

05 


00119 



DCR 

B 

OOBC 1 

C2 

00B4 ' 

00120 



JNZ 

L9 

OOBF' 

C3 

00C5 ' 

00121 



JMP 

Lll 

00C2 1 

D2 

0069' 

00122 

L10: 

JNC 

LS 




00123 


**************************************************3 




00124 



TIME TO 

INITIATE ACTIVE CONTROL 




00125 


**************************************************3 

00C5 ' 

2A 

3F80 

00126 

Lll : 

LHLD 

3FS0H 

00C8 1 

22 

F70A 

00127 



SHLD 

0F70AH 

OOCB 1 

22 

3D0E 

00128 



SHLD 

3D0EH ; SAVE ORIGINAL "FLIM" 

OOCE' 

EB 


00129 



XCHG 

; F.LIM TO DE FOR COMPARE 

OOCF ' 

CD 

0220 1 

00130 

CHACEL: CALL 

IN3 ; GET W/G ACCEL. 

00D2 1 

2A 

3F80 

00131 



LHLD 

3F80H ; PUT NEW ACCEL INTO HL 

00D5 * 

CD 

0282 r 

00132 



CALL 

SUB2 ; DE-HL IS NEW W/G ACCEL. 




00133 




; GREATER THAN FLIM? 

00D8 ' 

F2 

OOCF* 

00134 



JP 

CHACEL ; NO- LOOP TILL IT IS 

(OODB- 

■OOEO) 

II 

o 

o 

3 

o 

►d 

00135 



: CALL 

SPTH ;HAS GEAR STARTED STROKE? 




00136 



;JP 

CHACEL ; LOOP TILL GEAR ) THRESHOLD 

00E1 ' 

3E 

9F 

00137 



MVI 

A,9FH 

00E3 1 

D3 

EA 

00138 



OUT 

OEAH ; ENABLE SERVOLOOP 
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00139 

I****************************************************** 




00140 


GEAR IS 

NOW UNDER ACTIVE CONTROL 




00141 

****************************************************** 

00E5 f 

2A 

3D0E 

00142 


LHLD 

3D0EH ; GET ORIGINAL FLIM TO CALCULATE 

00E8 1 

22 

8000 

00143 


SHLD 

8000H ; TRANSITION VELOCITY 

00EB f 

21 

0000 

00144 


LXI 

II , 0000 

OOEE 1 

22 

8002 

00145 


SHLD 

8002H 

00F1* 

3E 

08 

00146 


MV I 

A 1 08 

00F3 * 

CD 

028E * 

00147 


CALL 

MATH 

00F6 * 

3E 

06 

00148 


MVI 

A, 06 

00F8* 

CD 

028E * 

00149 


CALL 

MATH 

OOFB 1 

3E 

36 

00150 


MVI 

A, 36H 

OOFD r 

32 

8004 

00151 


STA 

8004H 

0100 » 

3E 

B5 

00152 


MVI 

A , OB5H 

0102’ 

32 

8005 

00153 


STA 

8005H 

0105 r 

3E 

CD 

00154 


MVI 

A , OCDH 

0107* 

32 

8006 

00155 


STA 

8006II 

010 A 1 

3E 

56 

00156 


MVI 

A, 56H 

010C' 

32 

8007 

00157 


STA 

8007H 

010F 1 

3E 

02 

00158 


MVI 

A, 02 

0111' 

CD 

028E ' 

00159 


CALL 

MATH 

0114' 

2A 

8000 

00160 


LHLD 

8000H 

0117' 

22 

3F92 

00161 


SHLD 

3F92H 

011A * 

2A 

8002 

00162 


LHLD 

8002H 

011D 1 

22 

3F94 

00163 


SHLD 

3F94II 




00164 

****************************************************** 




00165 ; 


TRANSITION VELOCITY STORED AS FLOATING PT , 32 BIT 




00166 ; 


NUMBER , 

START COMPARING THIS AGAINST (SINK RATE 




00167 ; 


-W/G VEL 

.) TO DETERMINE START OF TRANSITION 




00168 

****************************************************** 

0120' 

2 A 

3F88 

00169 L4 : 

LHLD 

3F88H 

0123' 

EB 


00170 


XCIIG 


0124' 

3E 

00 

00171 


MVI 

A, 00 

0126' 

CD 

0251 1 

00172 


CALL 

INI 

0129' 

CD 

0282' 

00173 


CALL 

SUB2 

012C 1 

22 

8000 

00174 


SHLD 

8000H 

012F* 

21 

0000 

00175 


LXI 

H , 0000 

0132' 

22 

8002 

00176 


SHLD 

8002H 

0135' 

3E 

08 

00177 


MVI 

A, 08 

0137' 

CD 

028E f 

00178' 


CALL 

MATH 

013A 1 

2A 

3F92 

00179 


LHLD 

3F92H 

013D 1 

22 

8004 

00180 


SHLD 

8004H 

0140’ 

2 A 

3F94 

00181 


LHLD 

3F94H 

0143' 

22 

8006 

00182 


SHLD 

8006H 

0146' 

3E 

OA 

00183 


MVI 

A f OAH 

0148* 

CD 

028E 1 

00184 


CALL 

MATH 
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01B3 T 

3E 

9D 

00231 

L14 : 

MVI 

A , 9DII 


01B5 ' 

D3 

EA 

00232 


OUT 

OEAH 

; CLOSE FORCE FEEDBACK 

01B7 f 

01 

1800 

00233 


LX I 

B , 1800H 

; SET BC TO 1600 LBS 

01BA' 

C3 

0171" 

00234 


JMP 

L15 





00235 

■ *** 

*************************************************** 




00236 

9 

TAKEOFF 

MODE 





00237 

.****************************************************** 

OIBD * 

21 

0000 

00238 

L12 A 

LX I 

H , 0000 


OICO' 

22 

F70A 

00239 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=0 LBS. 

01C3 1 

3E 

A9 

00240 


MVI 

A,0A9H 


01C5 1 

D3 

EA 

00241 


OUT 

OEAH 

; ENABLE SERVOLOOP & OPEN F FDBK 

01C7 ' 

CD 

020E * 

00242 

FLOA 

: CALL 

SPTH 

; CHECK STRUT POSITION 

OICA 1 

F2 

01C7 1 

00243 


JP 

FLOA 


OICD 1 

01 

1EE0 

00244 


LXI 

B , 1EE0H 

; SET BC TO 2000 LBS 

OIDO 1 

CD 

0220' 

00245 

L15A 

: CALL 

INS 


01D3 1 

2 A 

8000 

00246 


LHLD 

8000H 


01D6 * 

22 

F708 

00247 


SHLD 

0F708H 

; OUTPUT W/G ACCEL TO DACO 

01D9 f 

CD 

027D 1 

00248 


CALL 

FTEST 


OlDC 1 

D2 

01 FE ' 

00249 


JNC 

L13A 


OIDF’ 

01 

1EE0 

00250 


LXI 

B , 1EE0H 

; SET BC TO 2000 LBS 

01E2 * 

CD 

0266 f 

00251 

L16A 

CALL 

IN4 


01E5 1 

22 

F708 

00252 


SHLD 

0F708H 

OUTPUT W/G ACCEL TO DACO 

01E8 f 

CD 

027D* 

00253 


CALL 

FTEST 


OlEB 1 

DA 

OIBD' 

00254 


JC 

L12A 


OlEE ' 

21 

1EE0 

00255 


LXI 

H f 1EE0H 

SET HL TO 2000 LBS 

01F1 * 

3E 

A5 

00256 


MVI 

A , 0A5H 

CLOSE F FDBK & REVERSE SIGN 

01F3 T 

D3 

EA 

00257 


OUT 

OEAH 

OF LIMIT FORCE CMD (ANALOG) 

01F5 1 

22 

F70 A 

00258 


SHLD 

0F7OAH 

SET LIMIT FORCE CMD=2000 LBS 

0 1F8 ? 

01 

1800 

00259 


LXI 

B , 1800H 

SET BC TO 1600 LBS 

OlFB f 

C3 

01E2 1 

00260 


JMP 

L16A 


01FE T 

21 

1EE0 

00261 

L13A : 

: LXI 

H.1EE0H : 

; SET HL TO 2000 LBS 

0201' 

22 

F70 A 

00262 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=2000 LBS 

0204' 

3E 

AD 

00263 

L14A : 

: MVI 

A.OADH 


0206' 

D3 

EA 

00264 


OUT 

OEAH ; 

; CLOSE FORCE FEEDBACK 

0208 T 

01 

1800 

00265 


LXI 

B , 1800H : 

; SET BC TO 1600 LBS 

020B 1 

C3 

OIDO 1 

00266 


JMP 

L15A 





00267 

.*************************************************+**** 




00268 

■ 

ROUTINE 

TO SUBTRACT STRUT POS ' N FROM THRESHOLD 




00269 

.******************* *************************** ******** 

020E 1 

E5 


00270 

SPTH 

PUSH 

H 

SPTH SETS SIGN FLAG POSITIVE 

020F 1 

D5 


00271 


PUSH 

D 

UNTIL STRUT POS ' N ) THRESHOLD 

0210' 

CD 

024F * 

00272 


CALL 

STP 

GET STRUT POSITION 

0213' 

21 

0B20 

00273 


LXI 

H,0B20H 

THRESHOLD 0160H=.05" 




00274 

y 



02D0H= . 1" 




00275 




0590H= . 2” 




00276 




0B20H= . 4" 
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014B ' 

DB 

A1 

00185 


IN 

0A1H 


014D 1 

E6 

20 

00186 


ANI 

2 OH 


014F ’ 

CA 

0120’ 

00187 


JZ 

L4 





00188 

.************************** 3 *************************** 




00189 

1 

TRANSITION PHASE 





00190 

.***************************************************** 

0152 ? 

2A 

3D0E 

00191 


LHLD 

3D0EH 

;FLIM 

0155* 

11 

FFFE 

00192 


LX I 

D , OFFFEII 


0158* 

22 

F70A 

00193 

L5 : 

SHLD 

0F70AH 


015B* 

19 


00194 


DAD 

D 


015C * 

CD 

020E ' 

00195 

EXST : 

CALL 

SPTH 

; CHECK (THRESH. -STRUT POS’N) 

015F * 

F2 

016C' 

00196 


JP 

L12 


0162' 

01 

1BD0 

00197 


LX I 

B f 1BD0H 


0165 1 

7D 


00198 


MOV 

A , L 


0166’ 

91 


00199 


SUB 

C 


0167’ 

7C 


00200 


MOV 

A ,H 


0168’ 

98 


00201 


SBB 

B 


0169' 

D2 

0158’ 

00202 


JNC 

L5 





00203 

.*********+******************************************** 




00204 

• 

ROLLOUT 

PHASE 





00205 

.**********+******************************************* 

016C ' 

21 

0000 

00206 

L12 : 

LXI 

H , 0000 


016F' 

22 

F70 A 

00207 


SHLD 

0F70AH 

;SET FLC=0 LBS. 

0172' 

3E 

99 

00208 


MVI 

A , 99H 


0174’ 

D3 

EA 

00209 


OUT 

OEAH 

; OPEN FORCE FEEDBACK 

0176’ 

CD 

020E ’ 

00210 

FLO: 

CALL 

SPTH 

; CHECK STRUT POS’N. 

0179* 

F2 

0176’ 

00211 


JP 

FLO 


017C ’ 

01 

1EE0 

00212 


LXI 

B , lEEOII 

; SET BC TO 2000 LBS. 

017F * 

CD 

0220' 

00213 

L15: 

CALL 

IN3 


0182’ 

2 A 

8000 

00214 


LHLD 

8000H 


0185' 

22 

F708 

00215 


SHLD 

0F708H 

; OUTPUT W/G ACCEL „ TO DACO 

0188' 

CD 

027D ’ 

00216 


CALL 

FTEST 


018B ' 

D2 

01AD* 

00217 


JNC 

LI 3 


018E ’ 

01 

1EE0 

00218 


LXI 

B , 1EE0H 

; SET BC TO 2000 LBS. 

0191’ 

CD 

0266' 

00219 

L16 : 

CALL 

IN4 


0194’ 

22 

F708 

00220 


SHLD 

0F708H 

; OUTPUT W/G ACCEL TO DACO 

0197' 

CD 

02 7D' 

00221 


CALL 

FTEST 


019A’ 

DA 

016C ' 

00222 


JC 

L12 


019D' 

21 

1EE0 

00223 


LXI 

H , 1EE0H 

; SET HL TO 2000 LBS. 

01 AO' 

3E 

95 

00224 


MVI 

A , 95H 

; CLOSE F FDBK & REV. SIGN 

01A2 ’ 

D3 

EA 

00225 


OUT 

OEAH 

; OF LIMIT FORCE CMD (ANALOG) 

01A4 ' 

22 

F70A 

00226 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=2000 LBS 

01A7’ 

01 

1800 

00227 


LXI 

B ,180011 

; SET BC TO 1600 LBS 

01AA ’ 

C3 

0191' 

00228 


JMP 

L16 


01AD' 

21 

1EE0 

00229 

L13 : 

LXI 

H , lEEOII 

; SET HL TO 2000 LBS 

01B0 ’ 

22 

F70A 

00230 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=2000 LBS 
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0216* 

EB 

00277 


XCHG 


0217 1 

2A 3F86 

00278 


LHLD 

3F86II ;GET STRUT POSITION 

021A 1 

CD 0282' 

00279 


CALL 

SUB2 ; SUBTRACT STRUT FROM THRESH 

021D 1 

D1 

00280 


POP 

D 

02 IE 1 

El 

00281 


POP 

H 

02 IF* 

C9 

00282 


RET 




00283 

.**************************************************: 



00284 

• 

ROUTINE 

TO INPUT AND STORE DATA FROM MUXO.l & 



00285 

■**************************************************: 

0220* 

3E 01 

00286 

IN3 : 

MVI 

A, 01 

0222* 

21 F701 

00287 


LXI 

H f 0F701H 

0225 * 

77 

00288 


MOV 

M, A 

0226 1 

2B 

00289 


DCX 

H 

0227* 

36 01 

00290 


MVI 

M , 01 

0229' 

7E 

00291 

Ml: 

MOV 

A,M 

022A * 

07 

00292 


RLC 


022B 1 

D2 0229* 

00293 


JNC 

Ml 

022E’ 

36 00 

00294 


MVI 

M , 00 

0230* 

2A F704 

00295 


LHLD 

0F704H 

0233* 

22 8000 

00296 


SHLD 

8 00 OH 

0236' 

22 3F80 

00297 


SHLD 

3F80H 

0239 1 

3E 00 

00298 


MVI 

A, 00 

023B * 

21 F701 

00299 


LXI 

H,0F701H 

023E 1 

77 

00300 


MOV 

M, A 

02 3F * 

2B 

00301 


DCX 

H 

0240* 

36 01 

00302 


MVI 

M , 01 

0242 1 

7E 

00303 

M2: 

MOV 

A,M 

0243 1 

07 

00304 


RLC 


0244 1 

D2 0242* 

00305 


JNC 

M2 

0247 1 

36 00 

00306 


MVI 

M , 00 

0249 1 

2A F704 

00307 


LHLD 

0F704II 

024C 1 

22 3F84 

00308 


SHLD 

3F84H 

024F 1 

3E 02 

00309 

STP: 

MVI 

A, 02 

0251’ 

21 F701 

00310 

INI: 

LXI 

H , 0F701II 

0254’ 

77 

00311 


MOV 

M , A 

0255' 

2B 

00312 


DCX 

II 

0256* 

36 01 

00313 


MVI 

M,01 

0258* 

7E 

00314 

M3: 

MOV 

A,M 

0259* 

07 

00315 


RLC 


025A* 

D2 0258* 

00316 


JNC 

M3 

025D* 

36 00 

00317 


MVI 

M, 00 

025F 1 

2A F704 

00318 


LHLD 

0F704H 

0262’ 

22 3F86 

00319 


SHLD 

3F86II 

0265* 

C9 

00320 


RET 




00321 

.******* *************************************** ***** 



00322 

y 

ROUTINE 

TO INPUT AND STORE DATA FROM MUX4 
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00323 


****************************************************** 

0266* 

3E 04 

00324 

I 

N4 : MVI 

A, 04 

0268* 

21 F701 

00325 


LXI 

H , 0F701II 

026B* 

77 

00326 


MOV 

M,A 

026C 1 

2B 

00327 


DCX 

H 

026D 1 

36 01 

00328 


MVI 

M , 01 

026F 1 

7E 

00329 

M4 : MOV 

A , M 

0270’ 

07 

00330 


RLC 


0271' 

D2 026F 1 

00331 


JNC 

M4 

0274 r 

36 00 

00332 


MVI 

M , 00 

0276 1 

2A F704 

00333 


LHLD 

0F704II 

0279’ 

22 3F96 

00334 


SHLD 

3F96H 

027C * 

C9 

00335 


RET 




00336 


****************************************************** 



00337 


ROUTINE 

TO SUBTRACT BC FROM HL 



00338 


****************************************************** 

027D ' 

7D 

00339 

] 

'TEST: MOV 

A,L 

027E 1 

91 

00340 


SUB 

C 

027F' 

7C 

00341 


MOV 

A ,H 

0280' 

98 

00342 


SBB 

B 

0281* 

C9 

00343 


RET 




00344 


****************************************************** 



00345 


ROUTINE 

FOR DOUBLE PRECISION SUBTRACT 



00346 


HL=DE-HL 



00347 


****************************************************** 

0282' 

7B 

00 348 


3UB2 : MOV 

A ,E 

0283' 

95 

00349 


SUB 

L 

0284 1 

6F 

00350 


MOV 

L , A 

0285 f 

7A 

00 351 


MOV 

A,D 

0286 » 

9C 

00352 


SBB 

H 

0287’ 

67 

00353 


MOV 

H, A 

0288* 

C9 

00354 


RET 




00355 


****************************************************** 



00356 


ROUTINE 

TO SHIFT VALUE IN HL LEFT 4 PLACES 



00357 


****************************************************** 

0289' 

29 

00358 

i 

\NM : DAD 

H 

028A * 

29 

00359 


DAD 

H 

028B* 

29 

00360 


DAD 

H 

02 8C' 

29 

00361 


DAD 

II 

028D' 

C9 

00362 


RET 




00363 


.****************************************************** 



00364 


ROUTINE 

TO ACTIVATE MATH BOARD & WAIT FOR RESULT 



00365 


ACCUMULATOR HAS OPCODE 



00366 


.****************************************************** 

028E * 

D3 AO 

00367 

1 

IATH : OUT 

OAOH 

0290' 

DB A 7 

00368 

1 

VAIT: IN 

0 A7H 
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0292* 

E6 

01 

00369 


AN I 01 

0294 ' 

C2 

0290* 

00370 


JNZ WAIT 

0297 T 

C9 


00371 


RET 




00372 


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 




00373 


****************************************************** 




00374 


THE FOLLOWING ARE SPECIAL CHECK-OUT ROUTINES 




00375 


AND NOT PART OF THE MAIN PROGRAM 




00376 


*************************3***************************** 




00377 


****************************************************** 




00378 






00379 






00380 


****************************************************** 




00381 


ROUTINE TO INPUT A VALUE FROM A/D & STORE IN RAM 




00382 


****************************************************** 

0298 f 

F3 


00383 


DI 

0299 1 

3E 

00 

00384 


MVI A, 00 

02 9B' 

CD 

0251* 

00385 


CALL INI 

029E 1 

CF 


00386 


RST 01H 

029F 1 

00 


00387 


NOP 

02A0 * 

00 


00388 


NOP 




00389 


****************************************************** 




00390 


ROUTINE TO DO PGA TEST ON A/D 




00391 


****************************************************** 

02 Al' 

F3 


00392 


DI 

02A2 1 

21 

F701 

00393 


LXI H , 0F701H 

02A5 * 

36 

00 

00394 

PGA: MVI M , 00 

02A7 1 

36 

CO 

00395 


MVI M , OCOH 

02A9 1 

C3 

02A5 1 

00396 


JMP PGA 

02AC ' 

00 


00397 


NOP 




00398 


****************************************************** 




00399 


ROUTINE TO OUTPUT A VALUE TO DACO & DAC1 




00400 


****************************************************** 

02AD‘ 

F3 


00401 


DI 

02AE 1 

00 


00402 


NOP 

02AF* 

21 

0000 

00403 

R2 : LXI H , 0000 

02B2 1 

22 

F708 

00404 


SHLD 0F708H 

02B5* 

22 

F70A 

00405 


SHLD 0F70AH 

02B8 1 

00 


00406 


NOP 

02B9 1 

00 


00407 


NOP 

02BA* 

00 


00408 


NOP 

02BB * 

C3 

02AF* 

00409 


JMP R2 




00410 


END 
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MACROS : 

SYMBOLS 

ANM 

0289 ' 

CHACEL 

OOCF’ 

EXST 

015C* 

FLO 

0176 

FLOA 

01C7 1 

FTEST 

027D’ 

INI 

0251 f 

IN3 

0220 

IN4 

0266’ 

LI 

0042’ 

L10 

00C2 1 

Lll 

00C5 

L12 

016C’ 

L12A 

01BD 1 

L13 

01AD ' 

L13A 

01FE 

L14 

01B3 1 

L14A 

0204’ 

L15 

017F 1 

L15A 

01D0 

L16 

0191’ 

L16A 

01E2 1 

L4 

0120’ 

L5 

0158 

L8 

0069’ 

L8A 

00 A4 1 

L9 

00B4 T 

Ml 

0229 

M2 

0242’ 

M3 

0258 T 

M4 

026F 1 

MATH 

028E 

PGA 

02 A5’ 

R2 

02AF ’ 

SPTH 

020E r 

START 

0000 

STP 

024F ’ 

SUB2 

0282’ 

TL1 

001E * 

TL2 

0020 

TL3 

0024’ 

WAIT 

0290’ 






NO FATAL ERROR(S) 
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ASSEMBLED AT 3D10 


3D10 1 
3D11 ’ 
3D14 ' 
3D15 ' 
3D17 ’ 
3D19 1 
3D1B ' 
3D1D 1 
3D1F 1 
3D21 1 

3D24 1 
3D27 1 
3D2 A ’ 
3D2C ' 


3D2E f 
3D30 * 
3D32 ' 
3D34 ' 
3D35 1 
3D38 1 
3D3B 1 
3D3D 1 
3D3E 1 
3D4 1 ' 
3D42 ' 
3D45 1 
3D47 1 
3D48 1 
3D4B 1 
3D4C' 
3D4F ' 
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00001 

************************** *****************3 



00002 

PROGRAM 

FOR AN ELECTROHYDRAULIC ACTIVE 



00003 

CONTROL 

AIRCRAFT 

LANDING GEAR 



00004 

*******************************************? 



00005 

NOTES : 





00006 

RAM LOCATION 3D0EH ADDED AS A TEMP LOC 



00007 

FOR FLIM 2 

/ 13/80 




00008 

*******************************************5 



00009 

REVISED FOR F4 GEAR 

6/28/81 



00010 

ORG 

3D10H 


F3 


00011 START: DI 


; DISABLE INTERRUPTS 

21 

3FFF 

00012 

LXI 

H , 3FFFII 

; INIT . STACK 

F9 


00013 

SPHL 



3E 

82 

00014 

MVI 

A , 8211 

; I N I T . MATH BOARD 

D3 

EB 

00015 

OUT 

OEBH 


3E 

00 

00016 

MVI 

A ,00 

; SET MEM. BASE ADD. 

D3 

A1 

00017 

OUT 

OA1H 


3E 

80 

00018 

MVI 

A , 8011 


D3 

A2 

00019 

OUT 

0 A2H 


21 

0092 

00020 

LXI 

H,0092H 

; STRUT THRESH. =1 IN. 



00021 



; MULT THRESH BY 16 

CD 

3F99 1 

00022 

CALL 

ANM 

; FOR LATER USE 

22 

3F8A 

00023 

SHLD 

3F8AH 

; LABLE BXTHR 

3E 

4C 

00024 

MVI 

A , 4CII 

; SET LIGHTS, SWITCHES 

D3 

EA 

00025 

OUT 

OEAII 




00026 

.*******************************♦***********: 



00027 

OUTPUT 

MUX0-MUX4 

FOR A/D BOARD CHECK 



00028 

ALSO LOOK FOR CONTROLLER ENABLED 



00029 

******************************************* 

16 

03 

00030 TL1 : MVI 

D , 3 


06 

FF 

00031 TL2 : MVI 

B , OFFII 


0E 

05 

00032 

MVI 

C , 5 


7A 


00033 TL3 : MOV 

A , D 


CD 

3F61 1 

00034 

CALL 

INI 


22 

F708 

00035 

SHLD 

0F708II 

; OUTPUT TO DACO 

DB 

E9 

00036 

IN 

OE9H 

; CONTROLLER ENABLED? 

IF 


00037 

RAR 



DA 

3D52 1 

00038 

JC 

LI 

; YES, JUMP TO LI 

05 


00039 

DCR 

B 


C2 

3D34 ' 

00040 

JNZ 

TL3 


06 

FF 

00041 

MVI 

B , OFFII 


OD 


00042 

DCR 

C 


C2 

3D34 r 

00043 

JNZ 

TL3 


15 


00044 

DCR 

D 


FA 

3D2E ' 

00045 

JM 

TL1 


C3 

3D30 ' 

00046 

JMP 

TL2 
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3D52 1 
3D54 ' 
3D57 1 
3D5A 1 
3D5B 1 
3D5E T 
3D61 r 


3D64 ' 
3D66 1 
3D69 1 
3D6C 1 
3D6F 1 
3D72 1 


3D75 T 
3D77 T 
3D79 1 
3D7C ' 
3D7D ! 
3D80 ’ 
3D81 1 
3D82 1 
3D83* 
3D84 ' 
3D85 1 
3D86 1 
3D87 ' 
3D8 A 1 
3D8B 1 
3D8E 1 
3D91 1 
3D94 1 
3D97 ' 
3D9A 1 
3D9D 1 
3D9E f 
3DA1 1 
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00047 


************** ******************* ********************* 



00048 



CONTROLLER HAS BEEN ENABLED 



00049 


****************************************************** 

3E 

02 

00050 

LI: 

MV I 

A, 02 

CD 

3F6 1 1 

00051 



CALL 

INI ; GET STRUT POS FOR LAND/TO. DEC 

2A 

3F8A 

00052 



LHLD 

3F8AH ;GET STRUT THRESHOLD 

EB 


00053 



XCHG 

; PUT IN DE 

2A 

3F86 

00054 



LHLD 

3F86II ; LOAD HL WITH STRUT POSITION 

CD 

3F92 1 

00055 



CALL 

SUB2 ; CALC. THRESHOLD-STRUT 

DA 

3ECD’ 

00056 



JC 

L12A ;YES, JUMP TO 12A 



00057 


***************************************************** 



00058 



LANDING 

- MAKE PREPARATIONS 



00059 


***************************************************** 

3E 

03 

00060 



MVI 

A, 03 

CD 

3F61 1 

00061 



CALL 

INI ;GET SINK RATE 

22 

3F88 

00062 



SHLD 

3F88II ; STORE IT 

21 

0915 

00063 



LXI 

II ( 0915II ; MULT XMAX BY 16 TO SHIFT INTO 

CD 

3F99 1 

00064 



CALL 

ANM ; UPPER 12 BITS 

22 

3F8C 

00065 



SHLD 

3F8CH ; STORE IT 



00066 


***************************************************** 



00067 



ENABLE INTEGRATOR 



00068 



START ENERGY CALCULATIONS 



00069 


***************************************************** 

3E 

9E 

00070 



MVI 

A, 9EH 

D3 

EA 

00071 



OUT 

OEAII ; ENABLE INTEGRATOR 

CD 

3F30 1 

00072 

L8 : 

CALL 

INS 

EB 


00073 



XCHG 


2A 

3F8C 

00074 



LHLD 

3F8CH 

EB 


00075 



XCHG 


7B 


00076 



MOV 

A ,E 

95 


00077 



SUB 

L 

6F 


00078 



MOV 

L, A 

7A 


00079 



MOV 

A,D 

9C 


00080 



SBB 

II 

67 


00081 



MOV 

H , A 

22 

8004 

00082 



SHLD 

8004II 

AF 


00083 



XRA 

A 

CD 

3F9E 1 

00084 



CALL 

MATH 

2A 

8000 

00085 



LHLD 

8000H 

22 

3F8E 

00086 



SHLD 

3F8EH 

2A 

8002 

00087 



LHLD 

8002H 

22 

3F90 

00088 



SHLD 

3F90H 

2A 

3F88 

00089 



LHLD 

3F88H 

EB 


00090 



XCHG 


2A 

3F84 

00091 



LHLD 

3F84H 

CD 

3F92 * 

00092 



CALL 

SUB2 
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3DA4 1 

22 

8000 

00093 



SHLD 

8000H 

3DA7 1 

22 

8004 

00094 



SHLD 

8004II 

3DAA ? 

AF 


00095 



XRA 

A 

3DAB 1 

CD 

3F9E ' 

00096 



CALL 

MATH 




00097 


**************************************************’ 




00098 



DIVIDE KE BY 2 THEN DO A BYTE BY BYTE COMPARE 




00099 



TO TEST 

IF PE)KE • DON* T BOTHER TO TEST LSB-IT 




00100 



CONTAINS 

NO USEFUL DATA 




00101 



3DAE 1 

B7 


00102 



ORA 

A ; CLEAR CARRY 

3DAF r 

06 

03 

00103 



MVI 

B,3 ; SET A BYTE COUNTER 

3DB1 1 

21 

8003 

00104 



LXI 

H,8003H ; GET KINETIC ENERGY 

3DB4’ 

7E 


00105 

L8A : 

MOV 

A ,M ; SHIFT RIGHT 3 BYTES AND 

3DB5 1 

IF 


00106 



RAR 

; RE-SAVE 

3DB6 ' 

77 


00107 



MOV 

M, A 

3DB7 ' 

2B 


00108 



DCX 

H 

3DB8 T 

05 


00109 



DCR 

B 

3DB9» 

C2 

3DB4 1 

00110 



JNZ 

L8A 

3DBC 1 

06 

03 

00111 



MVI 

B , 03 

3DBE 1 

21 

3F91 

00112 



LXI 

H , 3F91H 

3DC1 1 

11 

8003 

00113 



LXJ 

D , 800 3H 

3DC4 ' 

1A 


00114 

L9 : 

LDAX 

D 

3DC5 ' 

BE 


00115 



CMP 

M 

3DC6 ' 

C2 

3DD2 ' 

00116 



JNZ 

L10 

3DC9 ' 

IB 


00117 



DCX 

D 

3DCA r 

2B 


00118 



DCX 

H 

3DCB ' 

05 


00119 



DCR 

B 

3DCC ’ 

C2 

3DC4 1 

00120 



JNZ 

L9 

3DCF ’ 

C3 

3DD5 1 

00121 



JMP 

Lll 

3DD2 1 

D2 

3D79 ' 

00122 

L10 : 

JNC 

L8 




00123 


**************************************************: 




00124 



TIME TO 

INITIATE ACTIVE CONTROL 




00125 


ft*********************;****************************: 

3DD5 1 

2A 

3F80 

00126 

Lll : 

LHLD 

3F80H 

3DD8 f 

22 

F70A 

00127 



SHLD 

0F70AH 

3DDB 1 

22 

3D0E 

00128 



SHLD 

3D0EH ; SAVE ORIGINAL "FLIM" 

3 DDE 1 

EB 


00129 



XCHG 

; FLIM TO DE FOR COMPARE 

3DDF 1 

CD 

3F30 1 

00130 

CHACEL: CALL 

IN3 ; GET W/G ACCEL. 

3DE2 1 

2A 

3F80 

00131 



LHLD 

3F80H ; PUT NEW ACCEL INTO HL 

3DE5 1 

CD 

3F92 ' 

00132 



CALL 

SUB2 ; DE-HL IS NEW W/G ACCEL. 




00133 




; GREATER THAN FLIM? 

3DE8 ' 

F2 

3DDF 1 

00134 



JP 

CHACEL ; NO-LOOP TILL IT IS 

( 3DEB- 

3DF0 ) 

= 00 (NOP) 

00135 



; CALL 

SPTH ; HAS GEAR STARTED STROKE? 




00136 



;JP 

CHACEL ; LOOP TILL GEAR ) THRESHOLD 

3DF1 * 

3E 

9F 

00137 



MVI 

A , 9FH 

3DF3 ' 

D3 

EA 

00138 



OUT 

OEAH ; ENABLE SERVOLOOP 
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3DF5 ' 2 A 3 DOE 

3DF8 ' 22 8000 

3DFB 1 21 0000 

3DFE ' 22 8002 

3E01 1 3E 08 

3E03 ’ CD 3F9E ' 

3E06 1 3E 06 

3E08 1 CD 3F9E 1 

3E0B ' 3E 36 

3E0D T 32 8004 

3E10 ' 3E B5 

3E12 1 32 8005 

3E15' 3E CD 

3E17 1 32 8006 • 

3E1A 1 3E 56 

3E1C 1 32 8007 

3E1F 1 3E 02 

3E2 1 1 CD 3F9E * 

3E24 * 2A 8000 

3E27 1 22 3F92 

3E2A T 2 A 8002 

3E2D ’ 22 3F94 


3E30 1 2 A 3F88 

3E33 ' EB 

3E34 1 3E 00 

3E36 1 CD 3F61 ' 

3E39 ' CD 3F92 ' 

3E3C 1 22 8000 

3E3F ' 21 0000 

3E42 1 22 8002 

3E45 1 3E 08 

3E47' CD 3F9E ' 

3E4 A 1 2A 3F92 

3E4D' 22 8004 

3E50 ' 2A 3F94 

3E53 1 22 8006 

3E56 ' 3E OA 

3E58 1 CD 3F9E 1 


00139 

.****************************************************** 

00140 


GEAR IS 

NOW UNDER ACTIVE CONTROL 

00141 

****************************************************** 

00142 


LHLD 

3D0EH ; GET ORIGINAL FLIM TO CALCULATE 

00143 


SHLD 

8000H ; TRANSITION VELOCITY 

00144 


LX I 

H , 0000 

00145 


SHLD 

8002H 

00146 


MVI 

A , 08 

00147 


CALL 

MATH 

00148 


MVI 

A f 06 

00149 


CALL 

MATH 

00150 


MVI 

A , 36H 

00151 


STA 

8004H 

00152 


MVI 

A B OB5H 

00153 


STA 

8005H 

00154 


MVI 

A , OCDH 

00155 


STA 

8006H 

00156 


MVI 

A,56H 

00157 


STA 

800 7H 

00158 


MVI 

A. 02 

00159 


CALL 

MATH 

00160 


LHLD 

8000H 

00161 


SHLD 

3F92H 

00162 


LHLD 

8002H 

00163 


SHLD 

3F94H 

00164 

****************************************************** 

00165 


TRANSITION VELOCITY STORED AS FLOATING PT,32 BIT 

00166 


NUMBER. 

START COMPARING THIS AGAINST (SINK RATE 

00167 


-W/G VEL 

.) TO DETERMINE START OF TRANSITION 

00168 

****************************************************** 

00169 I 

A: 

LHLD 

3F88H 

00170 


XCHG 


00171 


MVI 

A ,00 

00172 


CALL 

INI 

00173 


CALL 

SUB2 

00174 


SHLD 

8000H 

00175 


LXI 

H f 0000 

00176 


SHLD 

8002H 

00177 


MVI 

A, 08 

00178 


CALL 

MATH 

00179 


LHLD 

3F92H 

00180 


SHLD 

8004II 

00181 


LHLD 

3F94H 

00182 


SHLD 

8006H 

00183 


MVI 

A ,0AH 

00184 


CALL 

MATH 
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3E5B 1 

DB 

A1 

00185 


IN 

OAIII 


3E5D 1 

E6 

20 

00186 


ANI 

2011 


3E5F 1 

CA 

3E30 f 

00187 


JZ 

L4 





00188 

.***************************************************** 




00189 

; 

TRANSITION PHASE 





00190 

.***************************************************** 

3E62 ’ 

2A 

3D0E 

00191 


LHLD 

3D0EII 

FLIM 

3E65 * 

11 

FFFE 

00192 


LXI 

D , OFFFEII 


3E68 ’ 

22 

F70 A 

00193 

L5 : 

SHLD 

0F70AH 


3E6B ' 

19 


00194 


DAD 

D 


3E6C 1 

CD 

3F1E ' 

00195 

EXST : 

CALL 

SPTH 

CHECK (THRESH. -STRUT POS’N) 

3E6F ' 

F2 

3E7C T 

00196 


JP 

L12 


3E72 1 

01 

1BD0 

00197 


LXI 

B , 1BD0H 


3E75 ' 

7D 


00198 


MOV 

A , L 


3E76* 

91 


00199 


SUB 

C 


3E77 ' 

7C 


00200 


MOV 

A ,H 


3E78 ' 

98 


00201 


SBB 

B 


3E79 1 

D2 

3E68 ' 

00202 


JNC 

L5 





00203 

.****************************************************** 




00204 


ROLLOUT 

PHASE 





00205 

.****************************************************** 

3E7C ' 

21 

0000 

00206 

L12 : 

LXI 

H , 0000 


3E7F ' 

22 

F70A 

00207 


SHLD 

0F70AH 

SET FLC=0 LBS. 

3E82 ' 

3E 

99 

00208 


MVI 

A , 99H 


3E84 1 

D3 

EA 

00209 


OUT 

OEAH 

OPEN FORCE FEEDBACK 

3E86 1 

CD 

3F1E ? 

00210 

FLO: 

CALL 

SPTH 

CHECK STRUT POS ' N . 

3E89 ' 

F2 

3E86 r 

00211 


JP 

FLO 


3E8C 1 

01 

1EE0 

00212 


LXI 

B , 1EE0H 

SET BC TO 2000 LBS. 

3E8F ' 

CD 

3F30 ' 

00213 

L15 : 

CALL 

IN3 


3E92 ? 

2 A 

8000 

00214 


LHLD 

8000II 


3E95 1 

22 

F708 

00215 


SHLD 

0F708H 

OUTPUT V//G ACCEL. TO DACO 

3E98 1 

CD 

3F8D ' 

00216 


CALL 

FTEST 


3E9B 1 

D2 

3EBD f 

00217 


JNC 

L13 


3E9E 1 

01 

1EE0 

00218 


LXI 

B , 1EE0H 

SET BC TO 2000 LBS. 

3EA1 ' 

CD 

3F76 1 

00219 

L16 : 

CALL 

IN4 


3EA4 f 

22 

F708 

00220 


SHLD 

0F708H 

OUTPUT W/G ACCEL TO DACO 

3EA7 * 

CD 

3F8D 1 

00221 


CALL 

FTEST 


3EAA 1 

DA 

3E7C ' 

00222 


JC 

L12 


3EAD* 

21 

1EE0 

00223 


LXI 

H , 1EE0H 

SET HL TO 2000 LBS. 

3EB0 T 

3E 

95 

00224 


MVI 

A , 9 5H 

CLOSE F FDBK & REV. SIGN 

3EB2 1 

D3 

EA 

00225 


OUT 

OEAH 

OF LIMIT FORCE CMD (ANALOG) 

3EB4 1 

22 

F70A 

00226 


SHLD 

0F70AH 

SET LIMIT FORCE CMD=2000 LBS 

3EB7 * 

01 

1800 

00227 


LXI 

B , 1800H 

SET BC TO 1600 LBS 

3EBA' 

C3 

3EA1 1 

00228 


JMP 

L16 


3EBD ' 

21 

1EE0 

00229 

L13 : 

LXI 

H , 1EE0H 

; SET HL TO 2000 LBS 

3EC0 * 

22 

F70A 

00230 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=2000 LBS 
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3EC3 

3E 9D 

00231 

L14 : 

MV I 

A , 9DH 


3EC5 

D3 EA 

00232 


OUT 

OEAH 

; CLOSE FORCE FEEDBACK 

3EC7 

01 1800 

00233 


LXI 

B , 1S00H 

; SET BC TO 1600 LBS 

3ECA’ 

C3 3E8F * 

00234 


JMP 

L15 




00235 

•***************************************£************** 



00236 

• 

TAKEOFF 

MODE 




00237 

.****************************************************** 

3ECD* 

21 0000 

00238 

L12A : 

LXI 

H ,0000 


3ED0 

22 F70A 

00239 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD= 0 LBS. 

3ED3 

3E A9 

00240 


MVI 

A , 0A9H 


3ED5 

D3 EA 

00241 


OUT 

OEAH 

; ENABLE SERVOLOOP & OPEN F FDBK 

3ED7 

CD 3F1E 1 

00242 

FLOA: 

CALL 

SPTH 

; CHECK STRUT POSITION 

3EDA* 

F2 3ED7 1 

00243 


JP 

FLOA 

3EDD 

01 1EE0 

00244 


LXI 

B , 1EE0H 

; SET BC TO 2000 LBS 

3EE0 

CD 3F30 * 

00245 

L15A : 

CALL 

IN3 


3EE3 

2A 8000 

00246 


LHLD 

8000H 


3EE6 

22 F708 

00247 


SHLD 

0F708II 

; OUTPUT W/G ACCEL TO DACO 

3EE9' 

CD 3F8D ' 

00248 


CALL 

FTEST 

3EEC' 

D2 3F0E 1 

00249 


JNC 

L13A 


3EEF' 

01 1EE0 

00250 


LXI 

B , 1EE0H 

; SET BC TO 2000 LBS 

3EE2 

CD 3F76 ' 

00251 

L16A : 

CALL 

IN4 


3EF5 

22 F708 

00252 


SHLD 

0F708H 

; OUTPUT W/G ACCEL TO DACO 

3EF8 T 

CD 3F8D 1 

00253 


CALL 

FTEST 

3EFB ' 

DA 3ECD T 

00254 


JC 

L12A 


3EFE 1 

21 1EE0 

00255 


LXI 

H , 1EE0II 

; SET HL TO 2000 LBS 

3F01 1 

3E A5 

00256 


MVI 

A , 0A5H 

; CLOSE F FDBK & REVERSE SIGN 

3F03 1 

D3 EA 

00257 


OUT 

OEAH 

; OF LIMIT FORCE CMD (ANALOG) 

3F05’ 

22 F70A 

00258 


SHLD 

0F70AII 

; SET LIMIT FORCE CMD=2000 LBS 

3F08 1 

01 1800 

00259 


LXI 

B ,180011 

; SET BC TO 1600 LBS 

3F0B 1 

C3 3EF2 1 

00260 


JMP 

L16A 


3F0E 1 

21 1EE0 

00261 

L13A : 

LXI 

H , 1EE0II 

; SET HL TO 2000 LBS 

3F11 1 

22 F70A 

00262 


SHLD 

0F70AH 

; SET LIMIT FORCE CMD=2000 LBS 

3F14 1 

3E AD 

00263 

L14A: 

MVI 

A , OADII 


3F16 r 

D3 EA 

00264 


OUT 

OEAH 

; CLOSE FORCE FEEDBACK 

3F18 ? 

01 1800 

00265 


LXI 

B , 1800H 

; SET BC TO 1600 LBS 

3F1B 1 

C3 3EE0 ' 

00266 


JMP 

L15A 




00267 

.****************************************************** 



00268 

t 

ROUTINE 

TO SUBTRACT STRUT POS ' N FROM THRESHOLD 



00269 

.****************************************************** 

3F1E 1 

E5 

00270 

SPTH: 

PUSH 

H 

; SPTH SETS SIGN FLAG POSITIVE 

3F1F 1 

D5 

00271 


PUSH 

D 

; UNTIL STRUT POS'N ) THRESHOLD 

3F20 1 

CD 3F5F T 

00272 


CALL 

STP 

; GET STRUT POSITION 

3F23 * 

21 0B20 

00273 


LXI 

H,0B20II 

; THRESHOLD 0160H=.05 M 



00274 

t 



02D0H= . 1" 



00275 

J 



0590H= .2” 



00276 

> 



0B20H= .4" 


82 



MACRO- 80 3.34 04-NOV-79 


PAGE 


1-6 


3F26 1 

EB 

00277 


XCHG 


3F27 r 

2 A 3F86 

00278 


LHLD 

3F86H ; GET STRUT POSITION 

3F2 A T 

CD 3F92 1 

00279 


CALL 

SUB2 ; SUBTRACT STRUT FROM THRESH. 

3F2D 1 

D1 

00280 


POP 

D 

3F2E 1 

El 

00281 


POP 

H 

3F2F* 

C9 

00282 


RET 




00283 

***************************************************** 



00284 

• 

ROUTINE 

TO INPUT AND STORE DATA FROM MUXO , 1 & 2 



00285 

.**************************************************** 

3F30 1 

3E 01 

00286 

IN3 : 

MVI 

A, 01 

3F32 1 

21 F701 

00287 


LXI 

H p 0F701H 

3F35 ' 

77 

00288 


MOV 

M, A 

3F36’ 

2B 

00289 


DCX 

H 

3F37 T 

36 01 

00290’ 


MVI 

M,01 

3F39 1 

7E 

00291 

Ml: 

MOV 

A , M 

3F3A 1 

07 

00292 


RLC 


3F3B ’ 

D2 3F39 1 

00293 


JNC 

Ml 

3F3E * 

36 00 

00294 


MVI 

M , 00 

3F40 1 

2 A F704 

00295 


LHLD 

0F704H 

3F43 * 

22 8000 

00296 


SHLD 

8000H 

3F46 ' 

22 3F80 

00297 


SHLD 

3F80H 

3F49 f 

3E 00 

00298 


MVI 

A ,00 

3F4B 1 

21 F701 

00299 


LXI 

H , OF701II 

3F4E ' 

77 

00300 


MOV 

M, A 

3F4F 1 

2B 

00301 


DCX 

H 

3F50 1 

36 01 

00302 


MVI 

M , 01 

3F52 ' 

7E 

00303 

M2: 

MOV 

A ,M 

3F53 f 

07 

00304 


RLC 


3F54 * 

D2 3F52 1 

00305 


JNC 

M2 

3F57 1 

36 00 

00306 


MVI 

M , 00 

3F59 * 

2A F704 

00307 


LHLD 

0F704H 

3F5C 1 

22 3F84 

00308 


SHLD 

3F84H 

3F5F * 

3E 02 

00309 

STP : 

MVI 

A ,02 

3F61 1 

21 F701 

00310 

INI: 

LXI 

H , 0F701II 

3F64 1 

77 

00311 


MOV 

M , A 

3F65 ' 

2B 

00312 


DCX 

H 

3F66 T 

36 01 

00313 


MVI 

M, 01 

3F68 1 

7E 

00314 

M3: 

MOV 

A ,M 

3F69 1 

07 

00315 


RLC 


3F6 A 1 

D2 3F68 1 

00316 


JNC 

M3 

3F6D 1 

36 00 

00317 


MVI 

M , 00 

3F6F 1 

2A F704 

00318 


LHLD 

0F704H 

3F72 * 

22 3F86 

00319 


SHLD 

3F86H 

3F75 1 

C9 

00320 


RET 




00321 

.**************************************************** 



00322 

; 

ROUTINE 

TO INPUT AND STORE DATA FROM MUX4 
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00323 


******************************************************* 

3F76 ' 

3E 04 

00324 


IN4 : MVI 

A, 04 

3F78 f 

21 F701 

00325 


LX I 

H , 0F701H 

3F7B T 

77 

00326 


MOV 

M, A 

3F7C ' 

2B 

00327 


DCX 

H 

3F7D' 

36 01 

00328 


MVI 

M ,01 

3F7F 1 

7E 

00329 

M4 : MOV 

A , M 

3F80 1 

07 

00330 


RLC 


3F81 ' 

D2 3F7F 1 

00331 


JNC 

M4 

3F84 1 

36 00 

00332 


MVI 

M , 00 

3F86 * 

2A F704 

00333 


LHLD 

0F704H 

3F89 1 

22 3F96 

00334 


SHLD 

3F96H 

3F8C * 

C9 

00335 


RET 




00336 


****************************************************** 



00337 


ROUTINE 

TO SUBTRACT BC FROM HL 



00338 


****************************************************** 

3F8D ' 

7D 

00339 

FTEST: MOV 

A , L 

3F8E 1 

91 

00340 


SUB 

C 

3F8F 1 

7C 

00341 


MOV 

A ,H 

3F90 * 

98 

00342 


SBB 

B 

3F91 1 

C9 

00343 


RET 




00344 


****************************************************** 



00345 


ROUTINE 

FOR DOUBLE PRECISION SUBTRACT 



00346 


IIL=DE-HL 



00347 


.****************************************************** 

3F92 T 

7B 

00348 

SUB2 : MOV 

A ,E 

3F93 ? 

95 

00349 


SUB 

L 

3F94 ' 

6F 

00350 


MOV 

L , A 

3F95 * 

7A 

00351 


MOV 

A ,D 

3F96 1 

9C 

00352 


SBB 

II 

3F97 1 

67 

00353 


MOV 

II, A 

3F98 1 

C9 

00354 


RET 




00355 


****************************************************** 



00356 


ROUTINE 

TO SHIFT VALUE IN HL LEFT 4 PLACES 



00357 


******************* ** ********************************* 

3F99» 

29 

00358 

ANM : DAD 

H 

3F9A 1 

29 

00359 


DAD 

H 

3F9B 1 

29 

00360 


DAD 

H 

3F9C ' 

29 

00361 


DAD 

H 

3F9D 1 

C9 

00362 


' RET 




00363 


****************************************************** 



- 00364 


ROUTINE 

TO ACTIVATE MATH BOARD & WAIT FOR RESULT 



00365 


ACCUMULATOR HAS OPCODE 



00366 


****************************************************** 

3F9E 1 

D3 AO 

00367 

MATH : OUT 

OAOH 

3FA0 ' 

DB A 7 

00368 

WAIT: IN 

0A7H 
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3FA2 

E6 

01 

00369 


ANI 01 

3FA4 

C2 

3FA0 1 

00370 


JNZ WAIT 

3FA7 

C9 


00371 


RET 




00372 


****************************************************** 




00373 


****************************************************** 




00374 


THE FOLLOWING ARE SPECIAL CHECK-OUT ROUTINES 




00375 


AND NOT PART OF THE MAIN PROGRAM 




00376 


****************************************************** 




00377 


****************************************************** 




00378 






00379 






00380 


****************************************************** 




00381 


ROUTINE TO INPUT A VALUE FROM A/D & STORE IN RAM 




00382 


****************************************************** 

3FA8 

F3 


00383 


DI 

3FA9 

3E 

00 

00384 


MVI A, 00 

3FAB 

CD 

3F61' 

00385 


CALL INI 

3FAE 

CF 


00386 


RST 01H 

3FAF 

00 


00387 


NOP 

3FB0 

00 


00388 


NOP 




00389 


****************************************************** 




00390 


ROUTINE TO DO PGA TEST ON A/D 




00391 


****************************************************** 

3FB1 1 

1 F3 


00392 


DI 

3FB2 1 

21 

F701 

00393 


LXI H.0F701H 

3FB5 1 

1 36 

00 

00394 

PGA: MVI M , 00 

3FB7 1 

36 

CO 

00395 


MVI M , OCOH 

3FB9 1 

C3 

3FB5 * 

00396 


JMP PGA 

3FBC 1 

00 


00397 


NOP 




00398 


****************************************************** 




00399 


ROUTINE TO OUTPUT A VALUE TO DACO & DAC1 




00400 


****************************************************** 

3FBD 1 

r F3 


00401 


DI 

3FBE 1 

1 00 


00402 


NOP 

3FBF 1 

1 21 

0000 

00403 

R2 : LXI H .0000 

3FC2 1 

1 22 

F708 

00404 


SHLD 0F708H 

3FC5 1 

1 22 

F70A 

00405 


SHLD 0F70AH 

3FC8 1 

1 00 


00406 


NOP 

3FC9 ' 

1 00 


00407 


NOP 

3FCA ' 

1 00 


00408 


NOP 

3FCB 1 

' C3 

3FBF f 

00409 


JMP R2 




00410 


END 
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MACROS : 

SYMBOLS 

ANM 

3F99 1 

CHACEL 

3DDF ' 
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